home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
misc
/
dspice0s
/
cmult.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-11-21
|
953b
|
33 lines
/* cmult.f -- translated by f2c (version of 3 February 1990 3:36:42).
You must link the resulting object file with the libraries:
-lF77 -lI77 -lm -lc (in that order)
*/
#include "f2c.h"
/*< subroutine cmult(xr,xi,yr,yi,cr,ci) >*/
/* Subroutine */ int cmult_(xr, xi, yr, yi, cr, ci)
doublereal *xr, *xi, *yr, *yi, *cr, *ci;
{
static doublereal xitemp, yitemp, xrtemp, yrtemp;
/* .. ok if cr and ci are really xr and xi or yr and yi */
/*< implicit double precision (a-h,o-z) >*/
/*< xrtemp=xr >*/
xrtemp = *xr;
/*< xitemp=xi >*/
xitemp = *xi;
/*< yrtemp=yr >*/
yrtemp = *yr;
/*< yitemp=yi >*/
yitemp = *yi;
/*< cr=xrtemp*yrtemp-xitemp*yitemp >*/
*cr = xrtemp * yrtemp - xitemp * yitemp;
/*< ci=xitemp*yrtemp+xrtemp*yitemp >*/
*ci = xitemp * yrtemp + xrtemp * yitemp;
/*< return >*/
return 0;
/*< end >*/
} /* cmult_ */